home *** CD-ROM | disk | FTP | other *** search
/ PC Guide Interactive 5 / PC Guide Issue 5 (Future Publishing) (1995).iso / win95 / w95demo.exe / M08CHBKG.DXR / 00134.ls < prev    next >
Encoding:
Text File  |  1995-06-01  |  2.0 KB  |  94 lines
  1. on setWall paper
  2.   global gPaper, glastclickedSprite
  3.   set glastclickedSprite to the clickOn
  4.   set gPaper to paper
  5.   puppetSprite(13, 1)
  6.   puppetSprite(20, 1)
  7.   puppetSprite(37, 1)
  8.   if paper = "alligator" then
  9.     set the locV of sprite 20 to 260
  10.   else
  11.     if paper = "bamboo" then
  12.       set the locV of sprite 20 to 272
  13.     else
  14.       if paper = "bubbles" then
  15.         set the locV of sprite 20 to 285
  16.       else
  17.         if paper = "pyramids" then
  18.           set the locV of sprite 20 to 298
  19.         else
  20.           if paper = "sand" then
  21.             set the locV of sprite 20 to 310
  22.           else
  23.             if paper = "weave" then
  24.               set the locV of sprite 20 to 322
  25.             end if
  26.           end if
  27.         end if
  28.       end if
  29.     end if
  30.   end if
  31.   set the castNum of sprite 20 to cast (paper & ".hlt")
  32.   set the castNum of sprite 13 to cast (paper & ".scrn")
  33.   set the castNum of sprite 37 to cast "rprompt.pict"
  34.   set the locH of sprite 37 to 150
  35.   set the locV of sprite 37 to 426
  36.   updateStage()
  37. end
  38.  
  39. on setWallRandom
  40.   set paper to word random(6) of "alligator bamboo bubbles pyramids sand weave"
  41.   setWall(paper)
  42. end
  43.  
  44. on doubleClickDraw
  45.   global glastclickedSprite
  46.   set s to the clickOn
  47.   if the doubleClick and (s = glastclickedSprite) then
  48.     drawPaper()
  49.   end if
  50.   set glastclickedSprite to s
  51. end
  52.  
  53. on cleanupPaper
  54.   puppetSprite(1, 0)
  55.   puppetSprite(11, 0)
  56.   puppetSprite(13, 0)
  57.   puppetSprite(20, 0)
  58.   puppetSprite(37, 0)
  59.   updateStage()
  60. end
  61.  
  62. on drawPaperEnd
  63.   global gPaper
  64.   drawPaper()
  65.   puppetSprite(11, 0)
  66.   puppetSprite(13, 0)
  67.   puppetSprite(20, 0)
  68.   puppetSprite(37, 0)
  69.   updateStage()
  70.   go("end")
  71.   set gPaper to EMPTY
  72. end
  73.  
  74. on drawPaperEndForNext
  75.   drawPaper()
  76.   puppetSprite(11, 0)
  77.   puppetSprite(13, 0)
  78.   puppetSprite(20, 0)
  79.   puppetSprite(37, 0)
  80.   updateStage()
  81. end
  82.  
  83. on drawPaper
  84.   global gPaper
  85.   if voidp(gPaper) or (gPaper = EMPTY) then
  86.     set gPaper to "Alligator"
  87.   end if
  88.   puppetSprite(1, 1)
  89.   set the castNum of sprite 1 to cast (gPaper & ".draw")
  90.   set the locH of sprite 1 to 0
  91.   set the locV of sprite 1 to 0
  92.   updateStage()
  93. end
  94.